(archive-mode): Use write-contents-hooks.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 72a5578f38d808f4e5922e3f65a226a787adfea4..767093ef51de5ddd13c701f13d5b9a50568912ba 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -520,8 +520,8 @@ archive.
        (make-local-variable 'revert-buffer-function)
        (setq revert-buffer-function 'archive-mode-revert)
        (auto-save-mode 0)
-       (make-local-variable 'local-write-file-hooks)
-       (add-hook 'local-write-file-hooks 'archive-write-file)
+       (make-local-variable 'write-contents-hooks)
+       (add-hook 'write-contents-hooks 'archive-write-file)
 
        ;; Real file contents is binary
        (make-local-variable 'require-final-newline)